home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgLangD.iso / TURBOPASCAL WIN / OWLDEMOS.PAK / DATAENTR.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-08  |  1.4 KB  |  45 lines
  1. {***************************************************}
  2. {                                                   }
  3. {   Turbo Pascal for Windows                        }
  4. {   Windows 3.1 DDEML Demonstration Program         }
  5. {                                                   }
  6. {   Copyright (c) 1992 by Borland International     }
  7. {                                                   }
  8. {***************************************************}
  9.  
  10. { This unit defines the interface to the DataEntry DDE
  11.   server (DDEMLSRV.PAS).  It defines the Service, Topic,
  12.   and Item names supported by the Server, and also defines
  13.   a data structure which may be used by the Client to
  14.   hold the sampled data locally.
  15.  
  16.   The Data Entry Server makes its data samples available
  17.   in text (cf_Text) form as three separate Topics.  Clients
  18.   may convert these into integer form for use with the
  19.   data structure defined here.
  20. }
  21. unit DataEntry;
  22.  
  23. interface
  24.  
  25. const
  26.   NumValues = 3;
  27.  
  28. type
  29.  
  30. { Data Structure which constitutes a sample }
  31.  
  32.   TDataSample = array [1..NumValues] of Integer;
  33.   TDataString = array [0..20] of Char;     { Size of Item as text }
  34.  
  35. const
  36.   DataEntryName : PChar = 'DataEntry';
  37.   DataTopicName : PChar = 'SampledData';
  38.   DataItemNames : array [1..NumValues] of PChar = ('DataItem1',
  39.                                                    'DataItem2',
  40.                                                    'DataItem3');
  41.  
  42. implementation
  43.  
  44. end.
  45.